www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8（全功能，无限制，完全开源）/Ku_type/Index_link.asp
<head>
<meta http-equiv="Content-Language" content="zh-cn">
</head>
<div align="center">
<table cellpadding="0" cellspacing="0" width="980" height="97">
<tr>
<td height="33" background="../Ku_img/link_001.jpg">
<table cellpadding="0" cellspacing="0" width="975">
<tr>
<td height="20" width="151"><div id="dazi">
<p align="left"> <img border="0" src="pkxx-img/icon01.png"> <b>友情链接</b></div></td>
<td height="20" width="320"> </td>
<td height="20" width="102"><b>图片链接</b></td>
<td height="20" width="97"><b>文字链接</b></td>
<td height="20" width="173"><a target="_blank" href="Alilink.asp"><b>申请连接</b></a></td>
<td height="20" width="59">
<img border="0" src="pkxx-Img/more.jpg"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="60" background="../Ku_img/link_002.jpg">
<div align=center>
<table border="0" width="98%" cellpadding="1" cellspacing="3" >
<%
set rskind=server.CreateObject("adodb.recordset")
sqlkind="select top 18 * from Ku_link where shenhe=1 order by ID desc"
rskind.open sqlkind,conn,1,1
if rskind.eof then
%>
<tr style="border: 1px solid #D0D4D9"><td>暂无友情链接</td></tr>
<% else
dim k
k=1
%>
<tr align="center" >
<% do while not rskind.eof%>
<td width="11%" style="border: 1px solid #D0D4D9" height="30">
<a target="_blank" href="<%if rskind("biaoji")=0 then%>Ku_go.asp?ku_id=<%=rskind("id")%><%else%><%=rskind("url")%><%end if%>" title="网站名：<%=rskind("name")%>
点击量：<%=rskind("hits")%>次"><%=left(rskind("name"),7)%></a>
<% if rskind("biaoji")=1 then%><img border="0" src="pkxx-img/tuijian.gif"><% end if %>
</td>
<% if k mod 9 =0 then%>
</tr><tr align="center">
<% end if%><% k=k+1
rskind.movenext
loop
end if
rskind.close
set rskind=nothing
%>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td height="4">
<img border="0" src="../Ku_img/link_003.jpg" width="980" height="4"></td>
</tr>
</table>
</div>